. LACE CURTAIN
. FRED CORNETT
5 BC=10;FC=83
6 &(2)=0;&(1)=53;&(0)=53
10 clear ;&(9)=148;for A=-79to 79step 2;box A,0,1,87,1;next A
20 for A=43to -43step -2;box 0,A,159,1,1;next A;for A=1to 100;box 0,0,rnd (159),rnd (87),3;next A;run 
:return ;run 
